1 REM HEX PRINT ROUTINE. ENTRY POINTS:
2 REM   LINE 10, 4 DIGIT HEX VALUE
3 REM   LINE 30, 2 DIGIT WITH $
4 REM   LINE 40, 2 DIGIT WITHOUT $
5 REM PUT VALUE TO PRINT IN 'A'
6 :
10 B=INT(A/256):GOSUB 30
20 B=A-B*256:GOSUB 40:RETURN
30 PRINT "$";
40 X=INT(B/16):GOSUB 50:X=B-X*16
50 PRINTMID$("0123456789ABCDEF",X+1,1);
60 RETURN